TableSetId Subroutine

public subroutine TableSetId(tab, id)

set table id Arguments: tab returned table id table id

Arguments

Type IntentOptional Attributes Name
type(Table), intent(inout) :: tab
character(len=*), intent(in) :: id

Source Code

SUBROUTINE TableSetId &
  ( tab, id )

IMPLICIT NONE

! Arguments with intent(in):
CHARACTER ( LEN = *), INTENT(IN) :: id

! Arguments with intent (inout):
TYPE (Table), INTENT (INOUT) :: tab

!------------end of declaration------------------------------------------------

tab % id = TRIM (id)

RETURN 
END SUBROUTINE TableSetId